Use data\grade
Sum For SUBSTR(xh,3,2)= "99".And.kcdh= "0001" To sum_0001
Sum For SUBSTR(xh,3,2)= "99".And.kcdh= "0002" To sum_0002
Sum For SUBSTR(xh,3,2)= "99".And.kcdh= "0003" To sum_0003
Sum For SUBSTR(xh,3,2)= "99".And.kcdh= "0004" To sum_0004
? Sum_0001,Sum_0002,Sum_0003,Sum_0004
